#include <ansi.h>
inherit NPC;

void create()
{
        set_name("韦春芳", ({ "wei chunfang", "chunfang", "wei" }) );
        set("gender", "女性" );
        set("title", "丽春院老板娘");
        set("age", 42);
        set("long", "韦春芳是当朝鹿鼎公兼红花会总舵主韦小宝他娘，虽是徐\n"
                    "娘半老，但风韵犹存。\n");
        set("str", 25);
        set("dex", 25);
        set("con", 25);
        set("int", 25);

        set_skill("unarmed", 20);
        set_skill("force", 20);
        set_skill("dodge", 35);
        set("combat_exp", 25000);

        set("max_qi", 300);
        set("max_jing", 100);
        set("neili", 500);
        set("max_neili", 500);

        set("attitude", "friendly");
        set("inquiry", ([
                "name"   : "老娘我就是韦春芳。",
                "韦小宝" : "那是我的乖儿子，长得就像你。",
                "丽春院" : "我们丽春院可是扬州城里头一份的找乐子去处。",
                "here"   : "我们丽春院可是扬州城里头一份的找乐子去处。",
        ]));
        setup();

        set("chat_chance", 1);
        set("chat_msg", ({
                CYN "韦春芳得意地说道：当年老娘我标致得很，每天有好几个客人。\n" NOR,
                CYN "韦春芳怒骂道：辣块妈妈，要是罗刹鬼、红毛鬼子到丽春院来，老娘用"
                "大扫帚拍了出去。\n" NOR,
                CYN "韦春芳对你说道：你一双眼睛贼忒嘻嘻的，真像那个喇嘛！\n" NOR,
        }) );
        carry_object("/d/city/obj/flower_shoe")->wear();

        carry_object("/d/city/obj/pink_cloth")->wear();
}

void init()
{
        object ob;

        ::init();

        if (! stringp(query("startroom")) ||
            find_object(query("startroom")) != environment())
                return;

        if (interactive(ob = this_player()) && !is_fighting())
        {
                remove_call_out("greeting");
                call_out("greeting", 1, ob);
        }
}

void greeting(object me)
{
        if (! objectp(me) || environment(me) != environment())
            return;

        command("look " + me->query("id"));

        if (me->query("gender") == "无性")
        {
                command("say 你当老娘是烂婊子吗？辣块妈妈，老娘满汉蒙藏回"
                        "都接，就是不伺太监！\n");
                command("kick " + me->query("id"));

                message("vision", HIY + me->name() + HIY "被韦春芳一脚踢"
                        "出门外。\n" NOR,
                        environment(me), ({me}));
                me->move("/d/city/nandajie2");

                message("vision", HIY + me->name() + HIY "被人从丽春院里"
                        "踢了出来，栽倒在地上。\n" NOR,
                        environment(me), ({ me }));

        } else
        {
                if (me->query("class") == "bonze")
                {
                        command("say 呦，" + RANK_D->query_respect(me) +
                                "也来光顾我们丽春院啊。");
                        command("say 想当年我接过一个西藏喇嘛，他上床前一定要念"
                                "经，一面念经，眼珠子就骨溜溜的瞧着我。");
                }

                if (me->query("gender") == "女性")
                {
                        command("say 哎呀，这年月大姑娘也逛窑子，成何体统？");
                        command("sigh");
                        command("say 可惜我家小宝不在，不然让他伺候你。");
                }
                command("say 楼上楼下的姑娘们，客人来了！");
        }
        return;
}

void unconcious()
{
        die();
}
